home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / MAGIC CUBE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  821b  |  21 lines
  1. 10  REM  **********************
  2. 11  REM  *     MAGIC CUBE     *
  3. 12  REM  *   BY PAUL RAYMER   *
  4. 13  REM  * COPYRIGHT (C) 1983 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 1000  TEXT : HOME : CLEAR 
  9. 10000 V = 64
  10. 14000  REM 
  11. 18000  REM  THE ULTIMATE SOLUTION
  12. 22000  REM  TO THE MAGIC CUBES
  13. 26000  REM 
  14. 30000  SPEED= V: VTAB 22: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC **"
  15. 34000  GOSUB 62000
  16. 38000 A$ = "/EBFUTOJ!FOJ" + CHR$(91) +"BHBN!FMCCJO!SVPZ!EBFS!EOB!ZBXB!HOJIU!OSBE!FIU!XPSIU"
  17. 46000  FOR X = V TO 1  STEP  -1
  18. 50000  PRINT  CHR$( ASC( MID$ (A$,X,1)) -1);
  19. 54000  NEXT X
  20. 58000  SPEED= 255: END 
  21. 62000  INVERSE : FOR X = 8 TO 12  STEP 2: FOR Y = 18 TO 22  STEP 2: VTAB X: HTAB Y: PRINT  CHR$(32): NEXT Y: NEXT X: FOR Z = 1 TO 2000: NEXT Z: NORMAL : PRINT : RETURN